home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / WASTE 1.1a4 / Interfaces 2 / AERegistry.p < prev    next >
Encoding:
Text File  |  1994-10-31  |  9.9 KB  |  412 lines  |  [TEXT/PJMM]
  1. unit AERegistry;
  2.  
  3. { Pascal interface to the Macintosh Libraries: }
  4. { Apple Event Registry }
  5.  
  6. { Copyright © 1991 Apple Computer, Inc. }
  7. { All Rights Reserved }
  8.  
  9. { Adapted for use with THINK Pascal 4.0.x by Marco Piovanelli }
  10.  
  11. interface
  12.  
  13.     const
  14.  
  15.         cAEList = 'list';
  16.         cApplication = 'capp';
  17.         cArc = 'carc';
  18.         cBoolean = 'bool';
  19.         cCell = 'ccel';
  20.         cChar = 'cha ';
  21.         cColorTable = 'clrt';
  22.         cColumn = 'ccol';
  23.         cDocument = 'docu';
  24.         cDrawingArea = 'cdrw';
  25.         cEnumeration = 'enum';
  26.         cFile = 'file';
  27.         cFixed = 'fixd';
  28.         cGraphicLine = 'glin';
  29.         cGraphicObject = 'cgob';
  30.         cGraphicShape = 'cgsh';
  31.         cGraphicText = 'cgtx';
  32.         cGroupedGraphic = 'cpic';
  33.         cInsertionLoc = 'insl';
  34.         cIntlText = 'itxt';
  35.         cIntlWritingCode = 'intl';
  36.         cItem = 'citm';
  37.         cLine = 'clin';
  38.         cLongInteger = 'long';
  39.         cMenu = 'cmnu';
  40.         cMenuItem = 'cmen';
  41.         cObject = 'cobj';
  42.         cObjectSpecifier = 'obj ';
  43.         cOpenableObject = 'coob';
  44.         cOval = 'covl';
  45.         cParagraph = 'cpar';
  46.         cPixel = 'cpxl';
  47.         cPixelMap = 'cpix';
  48.         cPolygon = 'cpgn';
  49.         cQDPoint = 'QDpt';
  50.         cQDRectangle = 'qdrt';
  51.         cRectangle = 'crec';
  52.         cRGBColor = 'cRGB';
  53.         cRotation = 'trot';
  54.         cRoundedRectangle = 'crrc';
  55.         cRow = 'crow';
  56.         cSelection = 'csel';
  57.         cShortInteger = 'shor';
  58.         cTable = 'ctbl';
  59.         cText = 'ctxt';
  60.         cTextFlow = 'cflo';
  61.         cTextStyles = 'tsty';
  62.         cType = 'type';
  63.         cWindow = 'cwin';
  64.         cWord = 'cwor';
  65.         errAEBadKeyForm = -10002;
  66.         errAECantHandleClass = -10010;
  67.         errAECantSupplyType = -10009;
  68.         errAEEventFailed = -10000;
  69.         errAEIndexTooLarge = -10007;
  70.         errAEInTransaction = -10011;
  71.         errAELocalOnly = -10016;
  72.         errAENoSuchTransaction = -10012;
  73.         errAENotAnElement = -10008;
  74.         errAENotASingleObject = -10014;
  75.         errAENotModifiable = -10003;
  76.         errAENoUserSelection = -10013;
  77.         errAEPrivilegeError = -10004;
  78.         errAEReadDenied = -10005;
  79.         errAETypeError = -10001;
  80.         errAEWriteDenied = -10006;
  81.         kAEAbout = 'abou';
  82.         kAEAfter = 'afte';
  83.         kAEAliasSelection = 'sali';
  84.         kAEAllCaps = 'alcp';
  85.         kAEArrowAtEnd = 'aren';
  86.         kAEArrowAtStart = 'arst';
  87.         kAEArrowBothEnds = 'arbo';
  88.         kAEAsk = 'ask ';
  89.         kAEBefore = 'befo';
  90.         kAEBeginning = 'bgng';
  91.         kAEBeginsWith = 'bgwt';
  92.         kAEBeginTransaction = 'begi';
  93.         kAEBold = 'bold';
  94.         kAECaseSensEquals = 'cseq';
  95.         kAECentered = 'cent';
  96.         kAEChangeView = 'view';
  97.         kAEClone = 'clon';
  98.         kAEClose = 'clos';
  99.         kAECondensed = 'cond';
  100.         kAEContains = 'cont';
  101.         kAECopy = 'copy';
  102.         kAECoreSuite = 'core';
  103.         kAECountElements = 'cnte';
  104.         kAECreateElement = 'crel';
  105.         kAECreatePublisher = 'cpub';
  106.         kAECut = 'cut ';
  107.         kAEDelete = 'delo';
  108.         kAEDoObjectsExist = 'doex';
  109.         kAEDoScript = 'dosc';
  110.         kAEDrag = 'drag';
  111.         kAEDuplicateSelection = 'sdup';
  112.         kAEEditGraphic = 'edit';
  113.         kAEEmptyTrash = 'empt';
  114.         kAEEnd = 'end ';
  115.         kAEEndsWith = 'ends';
  116.         kAEEndTransaction = 'endt';
  117.         kAEEquals = '=   ';
  118.         kAEExpanded = 'pexp';
  119.         kAEFast = 'fast';
  120.         kAEFinderEvents = 'FNDR';
  121.         kAEFormulaProtect = 'fpro';
  122.         kAEFullyJustified = 'full';
  123.         kAEGetClassInfo = 'qobj';
  124.         kAEGetData = 'getd';
  125.         kAEGetDataSize = 'dsiz';
  126.         kAEGetEventInfo = 'gtei';
  127.         kAEGetInfoSelection = 'sinf';
  128.         kAEGetPrivilegeSelection = 'sprv';
  129.         kAEGreaterThan = '>   ';
  130.         kAEGreaterThanEquals = '>=  ';
  131.         kAEGrow = 'grow';
  132.         kAEHidden = 'hidn';
  133.         kAEHiQuality = 'hiqu';
  134.         kAEImageGraphic = 'imgr';
  135.         kAEInfo = 11;
  136.         kAEIsUniform = 'isun';
  137.         kAEItalic = 'ital';
  138.         kAELeftJustified = 'left';
  139.         kAELessThan = '<   ';
  140.         kAELessThanEquals = '<=  ';
  141.         kAELowercase = 'lowc';
  142.         kAEMain = 0;
  143.         kAEMakeObjectsVisible = 'mvis';
  144.         kAEMiscStandards = 'misc';
  145.         kAEModifiable = 'modf';
  146.         kAEMove = 'move';
  147.         kAENo = 'no  ';
  148.         kAENoArrow = 'arno';
  149.         kAENonmodifiable = 'nmod';
  150.         kAEOpen = 'odoc';
  151.         kAEOpenSelection = 'sope';
  152.         kAEOutline = 'outl';
  153.         kAEPageSetup = 'pgsu';
  154.         kAEPaste = 'past';
  155.         kAEPlain = 'plan';
  156.         kAEPrint = 'pdoc';
  157.         kAEPrintSelection = 'spri';
  158.         kAEPrintWindow = 'pwin';
  159.         kAEPutAwaySelection = 'sput';
  160.         kAEQDAddOver = 'addo';
  161.         kAEQDAddPin = 'addp';
  162.         kAEQDAdMax = 'admx';
  163.         kAEQDAdMin = 'admn';
  164.         kAEQDBic = 'bic ';
  165.         kAEQDBlend = 'blnd';
  166.         kAEQDCopy = 'cpy ';
  167.         kAEQDNotBic = 'nbic';
  168.         kAEQDNotCopy = 'ncpy';
  169.         kAEQDNotOr = 'ntor';
  170.         kAEQDNotXor = 'nxor';
  171.         kAEQDOr = 'or  ';
  172.         kAEQDSubOver = 'subo';
  173.         kAEQDSubPin = 'subp';
  174.         kAEQDXor = 'xor ';
  175.         kAERedo = 'redo';
  176.         kAERegular = 'regl';
  177.         kAEReplace = 'rplc';
  178.         kAERevealSelection = 'srev';
  179.         kAERevert = 'rvrt';
  180.         kAERightJustified = 'rght';
  181.         kAESave = 'save';
  182.         kAESetData = 'setd';
  183.         kAESetPosition = 'posn';
  184.         kAEShadow = 'shad';
  185.         kAESharing = 13;
  186.         kAEShowClipboard = 'shcl';
  187.         kAESleep = 'slep';
  188.         kAESmallCaps = 'smcp';
  189.         kAEStrikethrough = 'strk';
  190.         kAESubscript = 'sbsc';
  191.         kAESuperscript = 'spsc';
  192.         kAETransactionTerminated = 'ttrm';
  193.         kAEUnderline = 'undl';
  194.         kAEUndo = 'undo';
  195.         kAEWholeWordEquals = 'wweq';
  196.         kAEYes = 'yes ';
  197.         kAEZoom = 'zoom';
  198.         kByCommentView = 6;
  199.         kByDateView = 3;
  200.         kByIconView = 1;
  201.         kByKindView = 5;
  202.         kByLabelView = 7;
  203.         kByNameView = 2;
  204.         kBySizeView = 4;
  205.         kBySmallIcon = 0;
  206.         kByVersionView = 8;
  207.         keyAEAngle = 'kang';
  208.         keyAEArcAngle = 'kend';
  209.         keyAEBaseAddr = 'badd';
  210.         keyAEBgndColor = 'kbcl';
  211.         keyAEBgndPattern = 'kbpt';
  212.         keyAEBounds = 'kbnd';
  213.         keyAECellList = 'kclt';
  214.         keyAEClassID = 'clID';
  215.         keyAEColor = 'kclr';
  216.         keyAEColorTable = 'kcls';
  217.         keyAECurveHeight = 'kchd';
  218.         keyAECurveWidth = 'kcwd';
  219.         keyAEDashStyle = 'dsty';
  220.         keyAEData = 'data';
  221.         keyAEDefinitionRect = 'kdef';
  222.         keyAEDescType = 'dstp';
  223.         keyAEDestination = 'dest';
  224.         keyAEDoAntiAlias = 'anta';
  225.         keyAEDoDithered = 'gdit';
  226.         keyAEDoRotate = 'kdrt';
  227.         keyAEDoScale = 'ksca';
  228.         keyAEDoTranslate = 'ktra';
  229.         keyAEEditionFileLoc = 'eloc';
  230.         keyAEElements = 'elms';
  231.         keyAEEndPoint = 'kedp';
  232.         keyAEEventClass = 'evcl';
  233.         keyAEEventID = 'evti';
  234.         keyAEFile = 'kfil';
  235.         keyAEFileType = 'fltp';
  236.         keyAEFillColor = 'kfcl';
  237.         keyAEFillPattern = 'kfpt';
  238.         keyAEFlipHorizontal = 'kfho';
  239.         keyAEFlipVertical = 'kfvt';
  240.         keyAEFont = 'kfnt';
  241.         keyAEFormula = 'kfla';
  242.         keyAEGraphicObjects = 'kgrs';
  243.         keyAEImageQuality = 'gqua';
  244.         keyAEInsertHere = 'insh';
  245.         keyAEKeyForms = 'keyf';
  246.         keyAEKeyword = 'kywd';
  247.         keyAELineArrow = 'lnar';
  248.         keyAEName = 'knam';
  249.         keyAENewElementLoc = 'knel';
  250.         keyAEObject = 'kobj';
  251.         keyAEObjectClass = 'kocl';
  252.         keyAEOffStyles = 'ofst';
  253.         keyAEOnStyles = 'onst';
  254.         keyAEParameters = 'prms';
  255.         keyAEParamFlags = 'pmfg';
  256.         keyAEPenColor = 'kpcl';
  257.         keyAEPenPattern = 'kpat';
  258.         keyAEPenWidth = 'kpwd';
  259.         keyAEPixelDepth = 'kpdp';
  260.         keyAEPixMapMinus = 'kpmm';
  261.         keyAEPMTable = 'kpmt';
  262.         keyAEPointList = 'kpts';
  263.         keyAEPointSize = 'kptz';
  264.         keyAEPosition = 'kpos';
  265.         keyAEPropData = 'prdt';
  266.         keyAEProperties = 'qpro';
  267.         keyAEProperty = 'kprp';
  268.         keyAEPropFlags = 'prfg';
  269.         keyAEPropID = 'prop';
  270.         keyAEProtection = 'kptc';
  271.         keyAERenderAs = 'kren';
  272.         keyAERequestedType = 'rtyp';
  273.         keyAEResult = '----';
  274.         keyAEResultInfo = 'rsin';
  275.         keyAERotation = 'krot';
  276.         keyAERotPoint = 'krtp';
  277.         keyAERowList = 'krls';
  278.         keyAESaveOptions = 'savo';
  279.         keyAEScale = 'kscl';
  280. (***keyAEScriptTag = 'kStg';        [ conflicting definition in TextServices.p] ***)
  281.         keyAEShowWhere = 'show';
  282.         keyAEStartAngle = 'ksta';
  283.         keyAEStartPoint = 'kstr';
  284.         keyAEStyles = 'ksty';
  285.         keyAEText = 'ktxt';
  286.         keyAETextColor = 'ktxc';
  287.         keyAETextFont = 'ktxf';
  288.         keyAETextPointSize = 'ktps';
  289.         keyAETextStyles = 'txts';
  290.         keyAETheText = 'thtx';
  291.         keyAETransferMode = 'ktrn';
  292.         keyAETranslation = 'ktrl';
  293.         keyAETryAsStructGraf = 'toog';
  294.         keyAEUniformStyles = 'unis';
  295.         keyAEUpdateOn = 'kupd';
  296.         keyAEUserTerm = 'utrm';
  297.         keyAEWindow = 'wndw';
  298.         keyAEWritingCode = 'wrcd';
  299.         keyMiscellaneous = 'fmsc';
  300.         keySelection = 'fsel';
  301.         keyWindow = 'kwnd';
  302.         pArcAngle = 'parc';
  303.         pBackgroundColor = 'pbcl';
  304.         pBackgroundPattern = 'pbpt';
  305.         pBestType = 'pbst';
  306.         pBounds = 'pbnd';
  307.         pClass = 'pcls';
  308.         pClipboard = 'pcli';
  309.         pColor = 'colr';
  310.         pColorTable = 'cltb';
  311.         pCornerCurveHeight = 'pchd';
  312.         pCornerCurveWidth = 'pcwd';
  313.         pDashStyle = 'pdst';
  314.         pDefaultType = 'deft';
  315.         pDefinitionRect = 'pdrt';
  316.         pEnabled = 'enbl';
  317.         pEndPoint = 'pend';
  318.         pFillColor = 'flcl';
  319.         pFillPattern = 'flpt';
  320.         pFont = 'font';
  321.         pFormula = 'pfor';
  322.         pGraphicObjects = 'gobs';
  323.         pHasCloseBox = 'hclb';
  324.         pHasTitleBar = 'ptit';
  325.         pIndex = 'pidx';
  326.         pInsertionLoc = 'pins';
  327.         pIsFloating = 'isfl';
  328.         pIsFrontProcess = 'pisf';
  329.         pIsModal = 'pmod';
  330.         pIsModified = 'imod';
  331.         pIsResizable = 'prsz';
  332.         pIsStationeryPad = 'pspd';
  333.         pIsZoomable = 'iszm';
  334.         pIsZoomed = 'pzum';
  335.         pItemNumber = 'itmn';
  336.         pJustification = 'pjst';
  337.         pLineArrow = 'arro';
  338.         pMenuID = 'mnid';
  339.         pName = 'pnam';
  340.         pNewElementLoc = 'pnel';
  341.         pPenColor = 'ppcl';
  342.         pPenPattern = 'pppa';
  343.         pPenWidth = 'ppwd';
  344.         pPixelDepth = 'pdpt';
  345.         pPointList = 'ptlt';
  346.         pPointSize = 'ptsz';
  347.         pProtection = 'ppro';
  348.         pRotation = 'prot';
  349.         pScale = 'pscl';
  350.         pScriptTag = 'psct';
  351.         pSelection = 'sele';
  352.         pStartAngle = 'pang';
  353.         pStartPoint = 'pstp';
  354.         pTextColor = 'ptxc';
  355.         pTextFont = 'ptxf';
  356.         pTextItemDelimiters = 'txdl';
  357.         pTextPointSize = 'ptps';
  358.         pTextStyles = 'txst';
  359.         pTransferMode = 'pptm';
  360.         pTranslation = 'ptrs';
  361.         pUniformStyles = 'ustl';
  362.         pUpdateOn = 'pupd';
  363.         pUserSelection = 'pusl';
  364.         pVersion = 'vers';
  365.         pVisible = 'pvis';
  366.         typeAEText = 'tTXT';
  367.         typeArc = 'tarc';
  368.         typeBest = 'best';
  369.         typeCell = 'cell';
  370.         typeClassInfo = 'clin';
  371.         typeColorTable = 'clrt';
  372.         typeColumn = 'colm';
  373.         typeDashStyle = 'tdas';
  374.         typeData = 'tdta';
  375.         typeDrawingArea = 'tdar';
  376.         typeElemInfo = 'elin';
  377.         typeEPS = 'EPS ';
  378.         typeEventInfo = 'evin';
  379.         typeFinderWindow = 'fwin';
  380.         typeFixed = 'fixd';
  381.         typeGraphicLine = 'tgln';
  382.         typeGraphicText = 'gtxt';
  383.         typeGroupedGraphic = 'tgru';
  384.         typeInsertionLoc = 'insl';
  385.         typeIntlText = 'itxt';
  386.         typeIntlWritingCode = 'intl';
  387.         typeOval = 'tovl';
  388.         typeParamInfo = 'pmin';
  389.         typePict = 'PICT';
  390.         typePixelMap = 'tpix';
  391.         typePixMapMinus = 'tpmm';
  392.         typePolygon = 'tpol';
  393.         typePropInfo = 'pinf';
  394.         typeQDPoint = 'QDpt';
  395.         typeQDRectangle = 'qdrt';
  396.         typeRectangle = 'rcte';
  397.         typeRGB16 = 'tr16';
  398.         typeRGB96 = 'tr96';
  399.         typeRGBColor = 'RGB ';
  400.         typeRotation = 'trot';
  401.         typeRoundedRectangle = 'trdr';
  402.         typeRow = 'row ';
  403.         typeScrapStyles = 'styl';
  404.         typeStyledText = 'STXT';
  405.         typeTable = 'tabl';
  406.         typeTextStyles = 'tsty';
  407.         typeTIFF = 'TIFF';
  408.         zoomIn = 7;
  409.         zoomOut = 8;
  410.  
  411. implementation
  412. end.